function h=IP_draw_player(G,P,k)
ax=axis;
width=ax(2)-ax(1);
x=P.Vars(1);
if x<ax(1)|x>ax(2),
    axis([x-width/2,x+width/2,ax(3),ax(4)]);
end;
theta=P.Vars(4);
a=0.2;b=0.1;r=0.1;L=P.L;
rect=p_rect(a,b);
circ=p_circle(r);
h1=fill(rect(:,1)+x,rect(:,2)+b,'b');
p1=[x,b];
p2=[x+L*sin(theta),b+L*cos(theta)];
h2=line([p1(1),p2(1)],[p1(2),p2(2)]);
h3=fill(circ(:,1)+p2(1),circ(:,2)+p2(2),'b');
h=[h1,h2,h3];
